home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / activ.dxr / 00002_activityObjectScript.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  2.9 KB  |  106 lines
  1. property firstSim, simList, resultSprite, playedFirstSim, currentResult, buttonList, vcrButtonList, recordResultsTextSprite, mode
  2. global gButtonManager
  3.  
  4. on new me
  5.   set simList to [1, 2, 3, 4]
  6.   set resultSprite to 46
  7.   set playedFirstSim to 0
  8.   set buttonList to []
  9.   set vcrButtonList to []
  10.   set recordResultsTextSprite to 2
  11.   set the visible of sprite recordResultsTextSprite to 0
  12.   return me
  13. end
  14.  
  15. on mPlaySimulation me, aWingNumber
  16.   set the visible of sprite recordResultsTextSprite to 0
  17.   set simulation to "activ" & string(aWingNumber) & ".mov"
  18.   set currentResult to "activ" & string(aWingNumber) & ".pict"
  19.   mChangeMovie(gMovie, simulation)
  20.   mPlay(gMovie, 1, 0)
  21.   set wingDoneSpriteOffset to 36
  22.   set checkSprite to aWingNumber + wingDoneSpriteOffset
  23.   puppetSprite(checkSprite, 1)
  24.   set the member of sprite checkSprite to member ("check" & string(aWingNumber))
  25.   puppetSprite(resultSprite, 1)
  26.   if getPos(simList, aWingNumber) then
  27.     deleteOne(simList, aWingNumber)
  28.   end if
  29.   if count(simList) = 0 then
  30.     go(the frame + 1)
  31.   end if
  32.   mSetMode(me, #play)
  33. end
  34.  
  35. on mSetFirstSimulation me, aWingNumber
  36.   set firstSim to aWingNumber
  37. end
  38.  
  39. on mPlayFirstSimulation me
  40.   mPlaySimulation(me, firstSim)
  41. end
  42.  
  43. on mSetMode me, aMode
  44.   set mode to aMode
  45. end
  46.  
  47. on mGetMode me
  48.   return mode
  49. end
  50.  
  51. on mStopSimulation me
  52.   if mGetMode(me) <> #stop then
  53.     set the visible of sprite 47 to 0
  54.     puppetTransition(47)
  55.     set the member of sprite resultSprite to member currentResult
  56.     set the visible of sprite recordResultsTextSprite to 1
  57.     updateStage()
  58.     mSetMode(me, #stop)
  59.   end if
  60. end
  61.  
  62. on mRestartSimulation me
  63.   if mGetMode(me) <> #play then
  64.     set the member of sprite resultSprite to member "dummyPixel"
  65.     puppetTransition(47)
  66.     set the visible of sprite 47 to 1
  67.     set the visible of sprite recordResultsTextSprite to 0
  68.     updateStage()
  69.     mSetMode(me, #play)
  70.   end if
  71. end
  72.  
  73. on mInitButtons me
  74.   add(buttonList, mAddButton(gButtonManager, 30, "Shape 1 default", "mClickShape(gActivity)"))
  75.   add(buttonList, mAddButton(gButtonManager, 31, "Shape 2 default", "mClickShape(gActivity)"))
  76.   add(buttonList, mAddButton(gButtonManager, 32, "Shape 3 default", "mClickShape(gActivity)"))
  77.   add(buttonList, mAddButton(gButtonManager, 33, "Shape 4 default", "mClickShape(gActivity)"))
  78. end
  79.  
  80. on mInitVCR me
  81.   add(buttonList, mAddButton(gButtonManager, 20, "playButton", "mRestartSimulation(gActivity)"))
  82.   add(buttonList, mAddButton(gButtonManager, 21, "stopButton", "mStopSimulation(gActivity)"))
  83. end
  84.  
  85. on mClickShape me
  86.   set offsetSprite to 29
  87.   set wingNumber to the clickOn - offsetSprite
  88.   if playedFirstSim = 0 then
  89.     set playedFirstSim to 1
  90.     go(the frame + 1)
  91.     mSetFirstSimulation(me, wingNumber)
  92.   else
  93.     mPlaySimulation(me, wingNumber)
  94.   end if
  95. end
  96.  
  97. on mCloseSection me
  98.   puppetSprite(resultSprite, 0)
  99.   repeat with aButton in buttonList
  100.     mdispose(aButton)
  101.   end repeat
  102.   repeat with aSprite in [37, 38, 39, 40]
  103.     puppetSprite(aSprite, 0)
  104.   end repeat
  105. end
  106.